#!
# open file for read
$mode = 0;
open IN, "files/file.txt" or die"can not open files/file.txt,$!\n";
if($mode)
{
    print while(<IN>)
}
else
{
    @all = <IN>;
    print join "---\n",@all;
}
close IN;
